home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES6.EXE / lha / CENTILE.PGM < prev    next >
Text File  |  1991-07-15  |  3KB  |  53 lines
  1. ************************************************************************
  2. *CENTILE.PGM  Version 1.0, 20/FEB/1990                                 *
  3. *An Epi Info program to present anthropometric centile distributions   *
  4. *  by Kevin Sullivan, Division of Nutrition, CDC.                      *
  5. *  The Epi Info file analyzed must contain the anthropometry fields    *
  6. *  HAZ, HAP, HAM, WHZ, WHP, WHM, WAZ, WAP, WAM, and FLAG.              *
  7. ************************************************************************
  8. echo
  9. echo
  10. echo           You must read a file in order to run this program.  Type
  11. echo           READ and the name of a file.  There is an example data
  12. echo           file called NUTRI that can be used.
  13. echo
  14. ?EPI>?
  15. ************************************************************************
  16. *Declare missing variables based on Record Flag (same as AMISS1.PGM)   *
  17. ************************************************************************
  18. Define NOHA #
  19. Define NOWH #
  20. Define NOWA #
  21. If (flag=1) or (flag=3) or (flag=5) or (flag=7) then NOHA = 1 else NOHA = 0
  22. If NOHA = 1 then HAZ=.
  23. If NOHA = 1 then HAP=.
  24. If NOHA = 1 then HAM=.
  25. If (flag=2) or (flag=3) or (flag=6) or (flag=7) then NOWH = 1 else NOWH = 0
  26. If NOWH then WHZ=.
  27. If NOWH then WHP=.
  28. if NOWH then WHM=.
  29. If (flag>3) and (flag<8) then NOWA = 1 else NOWA = 0
  30. If NOWA then WAZ=.
  31. If NOWA then WAP=.
  32. If NOWA then WAM=.
  33. ************************************************************************
  34. *Define field names for centile categories                             *
  35. ************************************************************************
  36. Define HAPGRP _
  37. Define WHPGRP _
  38. Define WAPGRP _
  39. ************************************************************************
  40. *Create centile categories using recode command                        *
  41. ************************************************************************
  42. recode hap to hapgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  43. recode whp to whpgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  44. recode wap to wapgrp 0-9.99=a 10-19.99=b 20-29.99=c 30-39.99=d 40-49.99=e 50-59.99=f 60-69.99=g 70-79.99=h 80-89.99=i 90-99.8=j else= .
  45. ************************************************************************
  46. *Ignore missing values for report                                      *
  47. ************************************************************************
  48. set ignore=on
  49. ************************************************************************
  50. *Use report for centile output                                         *
  51. ************************************************************************
  52. report centile
  53.